﻿Public Class errors

    Private Sub ButtonX1_Click(sender As Object, e As EventArgs)
        If TextBox1.Text = String.Empty Then
            'do nothing
        Else
            htaccess.RichTextBox1.AppendText((Environment.NewLine) & "ErrorDocument 400 " & TextBox1.Text)
        End If

        If TextBox2.Text = String.Empty Then
            'do nothing
        Else
            htaccess.RichTextBox1.AppendText((Environment.NewLine) & "ErrorDocument 401 " & TextBox1.Text)
        End If


        If TextBox3.Text = String.Empty Then
            'do nothing
        Else
            htaccess.RichTextBox1.AppendText((Environment.NewLine) & "ErrorDocument 402 " & TextBox1.Text)
        End If

        If TextBox4.Text = String.Empty Then
            'do nothing
        Else
            htaccess.RichTextBox1.AppendText((Environment.NewLine) & "ErrorDocument 403 " & TextBox1.Text)
        End If

        If TextBox5.Text = String.Empty Then
            'do nothing
        Else
            htaccess.RichTextBox1.AppendText((Environment.NewLine) & "ErrorDocument 404 " & TextBox1.Text)
        End If

        If TextBox6.Text = String.Empty Then
            'do nothing
        Else
            htaccess.RichTextBox1.AppendText((Environment.NewLine) & "ErrorDocument 405 " & TextBox1.Text)
        End If

        If TextBox16.Text = String.Empty Then
            'do nothing
        Else
            htaccess.RichTextBox1.AppendText((Environment.NewLine) & "ErrorDocument 500 " & TextBox1.Text)
        End If

        If TextBox17.Text = String.Empty Then
            'do nothing
        Else
            htaccess.RichTextBox1.AppendText((Environment.NewLine) & "ErrorDocument 501 " & TextBox1.Text)
        End If

        If TextBox18.Text = String.Empty Then
            'do nothing
        Else
            htaccess.RichTextBox1.AppendText((Environment.NewLine) & "ErrorDocument 502 " & TextBox1.Text)
        End If

        If TextBox19.Text = String.Empty Then
            'do nothing
        Else
            htaccess.RichTextBox1.AppendText((Environment.NewLine) & "ErrorDocument 503 " & TextBox1.Text)
        End If

        If TextBox20.Text = String.Empty Then
            'do nothing
        Else
            htaccess.RichTextBox1.AppendText((Environment.NewLine) & "ErrorDocument 504 " & TextBox1.Text)
        End If


        If TextBox21.Text = String.Empty Then
            'do nothing
        Else
            htaccess.RichTextBox1.AppendText((Environment.NewLine) & "ErrorDocument 505 " & TextBox1.Text)
        End If
    End Sub


   
    Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        Process.Start("http://lonsoftcorporation.co.nf/projects/webtool/index.html")
    End Sub

    Private Sub CloudButton1_Click(sender As Object, e As EventArgs) Handles CloudButton1.Click
        If TextBox1.Text = String.Empty Then
            'do nothing
        Else
            htaccess.RichTextBox1.AppendText((Environment.NewLine) & "ErrorDocument 400 " & TextBox1.Text)
        End If

        If TextBox2.Text = String.Empty Then
            'do nothing
        Else
            htaccess.RichTextBox1.AppendText((Environment.NewLine) & "ErrorDocument 401 " & TextBox1.Text)
        End If


        If TextBox3.Text = String.Empty Then
            'do nothing
        Else
            htaccess.RichTextBox1.AppendText((Environment.NewLine) & "ErrorDocument 402 " & TextBox1.Text)
        End If

        If TextBox4.Text = String.Empty Then
            'do nothing
        Else
            htaccess.RichTextBox1.AppendText((Environment.NewLine) & "ErrorDocument 403 " & TextBox1.Text)
        End If

        If TextBox5.Text = String.Empty Then
            'do nothing
        Else
            htaccess.RichTextBox1.AppendText((Environment.NewLine) & "ErrorDocument 404 " & TextBox1.Text)
        End If

        If TextBox6.Text = String.Empty Then
            'do nothing
        Else
            htaccess.RichTextBox1.AppendText((Environment.NewLine) & "ErrorDocument 405 " & TextBox1.Text)
        End If

        If TextBox16.Text = String.Empty Then
            'do nothing
        Else
            htaccess.RichTextBox1.AppendText((Environment.NewLine) & "ErrorDocument 500 " & TextBox1.Text)
        End If

        If TextBox17.Text = String.Empty Then
            'do nothing
        Else
            htaccess.RichTextBox1.AppendText((Environment.NewLine) & "ErrorDocument 501 " & TextBox1.Text)
        End If

        If TextBox18.Text = String.Empty Then
            'do nothing
        Else
            htaccess.RichTextBox1.AppendText((Environment.NewLine) & "ErrorDocument 502 " & TextBox1.Text)
        End If

        If TextBox19.Text = String.Empty Then
            'do nothing
        Else
            htaccess.RichTextBox1.AppendText((Environment.NewLine) & "ErrorDocument 503 " & TextBox1.Text)
        End If

        If TextBox20.Text = String.Empty Then
            'do nothing
        Else
            htaccess.RichTextBox1.AppendText((Environment.NewLine) & "ErrorDocument 504 " & TextBox1.Text)
        End If


        If TextBox21.Text = String.Empty Then
            'do nothing
        Else
            htaccess.RichTextBox1.AppendText((Environment.NewLine) & "ErrorDocument 505 " & TextBox1.Text)
        End If
    End Sub
End Class